home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / icpr20c.arc / STEP313.CMD < prev    next >
OS/2 REXX Batch file  |  1987-07-09  |  4KB  |  154 lines
  1. ; This file was created using MAKESTEP from the package ICPR20
  2. ; designed by Wayne Wolf.  ICPR20 Copyright 1987
  3. ; You may modify this file in any way you wish but since the make
  4. ; files utilize the existing cmd files I discourage it.  If you have
  5. ; comments or useful modifications please contact me, either at
  6. ; unix: ww@ufcsg.ufl.edu  or bbs: PC-EXCHANGE at 404-977-6686.
  7. Page1:
  8.   Clear
  9.   Message "Menu of Bulletin Boards for the 313 area."
  10.   Message "██████████████████████████████████████████████████████████████████████████████"
  11.   Locate 22,15
  12.   Message "          "
  13.   Locate 0,45
  14.   Message "Mode:"
  15.   Locate 0,51
  16.   Find S7 "H"
  17.   IF Found
  18.      Message "Hayes"
  19.   ELSE
  20.      Message "Racal"
  21.   ENDIF
  22.   Locate 0,60
  23.   Message "Redial:"
  24.   Locate 0,68
  25.   Find S8 "A"
  26.   IF Found
  27.      Message "Active"
  28.   ELSE
  29.      Message "Inactive"
  30.   ENDIF
  31.   Locate 2,0
  32.   Message " 1 --> Games People Play (294-0946)"
  33.   Message " 2 --> USA (398-7926)"
  34.   Message " 3 --> WalkSoft II (435-7818)"
  35.   Message " 4 --> WalkSoft I (435-9905)"
  36.   Message " 5 --> College Board (478-9647)"
  37.   Message " 6 --> P-1 Opus II (542-9615)"
  38.   Message " 7 --> Kaypro RBBS (772-0522)"
  39.   Message " 8 --> Freeform (774-7258)"
  40.   Message "D  --> Disconnect and exit to area code dialer     S  --> Switch modes"
  41.   Message "E  --> Execute ICPR20 from within Procomm          R  --> Toggle Redial mode "
  42.   Locate 22,0
  43.   Message "Your Choice -->"
  44.   Goto Retype1
  45. ;
  46. Retype1:
  47.   Locate 22,15
  48.   Get S3
  49.   Switch S3
  50.       Case "E"
  51.          EndSwitch
  52.          Execute "Make.cmd"
  53.       EndCase
  54.       Case "R"
  55.          EndSwitch
  56.          Goto Activate
  57.       EndCase
  58.       Case "S"
  59.          EndSwitch
  60.          Goto Switch
  61.       EndCase
  62.       Case "M"
  63.          Clear
  64.          Message "Manual dial for area "
  65.          Locate 0,21
  66.          Message S2
  67.          Message "What number do you wish to dial --> "
  68.          Locate 1,36
  69.          Get S6
  70.          Assign S5 "Manual dialing."
  71.          Execute "Dial"
  72.       EndCase
  73.       Case "D"
  74.          Execute "Discnect"
  75.       EndCase
  76.       Case "1"
  77.          Assign S5 "Dialing Games People Play at 294-0946."
  78.          Assign S6 "2940946"
  79.          Execute "Dial"
  80.       EndCase
  81.       Case "2"
  82.          Assign S5 "Dialing USA at 398-7926."
  83.          Assign S6 "3987926"
  84.          Execute "Dial"
  85.       EndCase
  86.       Case "3"
  87.          Assign S5 "Dialing WalkSoft II at 435-7818."
  88.          Assign S6 "4357818"
  89.          Execute "Dial"
  90.       EndCase
  91.       Case "4"
  92.          Assign S5 "Dialing WalkSoft I at 435-9905."
  93.          Assign S6 "4359905"
  94.          Execute "Dial"
  95.       EndCase
  96.       Case "5"
  97.          Assign S5 "Dialing College Board at 478-9647."
  98.          Assign S6 "4789647"
  99.          Execute "Dial"
  100.       EndCase
  101.       Case "6"
  102.          Assign S5 "Dialing P-1 Opus II at 542-9615."
  103.          Assign S6 "5429615"
  104.          Execute "Dial"
  105.       EndCase
  106.       Case "7"
  107.          Assign S5 "Dialing Kaypro RBBS at 772-0522."
  108.          Assign S6 "7720522"
  109.          Execute "Dial"
  110.       EndCase
  111.       Case "8"
  112.          Assign S5 "Dialing Freeform at 774-7258."
  113.          Assign S6 "7747258"
  114.          Execute "Dial"
  115.       EndCase
  116.       Default
  117.          Message " "
  118.          Message "Invalid choice, please retype"
  119.          Locate 22,15
  120.          Message "          "
  121.          Goto Retype1
  122.       EndCase
  123.   EndSwitch
  124. ;
  125. Switch:
  126.   Find S7 "R"
  127.   IF Found
  128.      Tran "I!"
  129.      Pause 2
  130.      Tran "ATZ!"
  131.      Assign S7 "H"
  132.      Rflush
  133.   ELSE
  134.      Tran "ATZ I!"
  135.      Pause 2
  136.      Tran "!"
  137.      Assign S7 "R"
  138.      Rflush
  139.   ENDIF
  140.   Pause 3
  141.   Rflush
  142.   Goto Page1
  143. ;
  144. Activate:
  145.   Find S8 "A"
  146.   IF Found
  147.      Assign S8 "I"
  148.   ELSE
  149.      Assign S8 "A"
  150.   ENDIF
  151.   Goto Page1
  152. ;
  153. Exit
  154.